home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 16 / AMIGAplus Sonderheft 16 (1998)(ICP)(DE)[!].iso / pd / anwendungen / marina / marina.lha / MARInA / Install-Guide / Start_Rexx.script < prev   
Text File  |  1998-07-22  |  2KB  |  76 lines
  1. ; Start Rexxmaster and RexxReqtools
  2.  
  3. ;deliver rexxmast and rxlib if not existent on the host system
  4.  
  5. setenv Msg Rexx_log
  6.  
  7. if ${Flags/REXX_INSTALLED} eq 1
  8.  skip END
  9. endif
  10.  
  11. if not exists sys:system
  12.  c/makedir sys:System
  13.  setenv MsgFlag 1   ;for signalling if $Msg must be popped up
  14. endif
  15.  
  16. if not exists sys:system/rexxmast
  17.  c/copy /sys/Inst_rexx/system/rexxmast SYS:System CLONE QUIET
  18.  setenv MsgFlag 1
  19. endif
  20.  
  21. ;this should be standard on up-to-date systems, but who
  22. ;knows if any user has deleted those libraries? Keep sure...
  23. ;so everything will work properly.
  24.  
  25. if not exists sys:libs/reqtools.library
  26.  c/copy /sys/Inst_rexx/reqtools SYS: CLONE ALL QUIET
  27.  setenv MsgFlag 1
  28. endif
  29.  
  30. if not exists sys:libs/rexxreqtools.library
  31.  c/copy /sys/Inst_rexx/reqtools SYS: CLONE ALL QUIET
  32.  setenv MsgFlag 1
  33. endif
  34.  
  35. if not exists SYS:libs/rexxsupport.library
  36.  c/copy /sys/Inst_rexx/libs/rexxsupport.library SYS:libs CLONE QUIET
  37.  setenv MsgFlag 1
  38. endif
  39.  
  40. if not exists SYS:libs/rexxsyslib.library
  41.  c/copy /sys/Inst_rexx/libs/rexxsyslib.library SYS:libs CLONE QUIET
  42.  setenv MsgFlag 1
  43. endif
  44.  
  45. if not exists sys:rexxc
  46.  makedir sys:RexxC
  47.  setenv MsgFlag 1
  48. endif
  49.  
  50. if not exists sys:rexxc/rxlib
  51.  c/copy /sys/Inst_rexx/rexxc/rxlib SYS:RexxC CLONE QUIET
  52.  setenv MsgFlag 1
  53. endif
  54.  
  55. if not exists sys:rexxc/rx
  56.  c/copy /sys/Inst_rexx/rexxc/rx SYS:RexxC CLONE QUIET
  57.  setenv MsgFlag 1
  58. endif
  59.  
  60. Lab Create
  61.  
  62.  run >NIL: sys:system/rexxmast
  63.  wait 1
  64.  
  65.  sys:rexxc/rxlib rexxsupport.library 0 -30
  66.  sys:rexxc/rxlib rexxreqtools.library 0 -30
  67.  
  68.  if not exists ENV:Flags
  69.     makedir ENV:Flags
  70.  endif
  71.  
  72.  setenv Flags/REXX_INSTALLED 1
  73.  
  74. Lab End
  75.  
  76.